<%@ language= "JScript"%>
<!-- #include file = "../rapportontwerp/databank.asp" -->
<!-- #include file = "../rapportontwerp/basisfuncties.asp" -->
<%
var aard='' + Request("aard");
var periode='' + Request("periode");
var jaar='' + Request("jaar");
var groep='' + Request("groep");
var formaat='' + Request("formaat");
var overzichtsnaam='' + Request("overzichtsnaam");
var huidig = '' + Request("huidig");

// Het opvragen van de leerlingen van de groep
var llnGroep = new Array();
var dataCon = Server.CreateObject("ADODB.Connection");
dataCon.Open(openRapport);

sqlZin = "select g.inschrijvingsNr from fr_XSLoverzicht as o " +
	        "left join fr_overzichtgroepen as g " +
	        "on o.overzichtsNr = g.overzichtsNr " +
		        "and o.aard = g.aard " +
		          "and o.periode=g.periode " +
		            "and o.jaar=g.jaar " +
          " where o.aard='" + aard +
	          "' and o.periode='" + periode +
		          "' and g.llnGroep='" + groep +
		          "' and o.jaar ='" + jaar +
			        "' and o.formaat='" + formaat +
				      "' and o.overzichtsnaam='" + overzichtsnaam + "'";
			
var dataRec = Server.CreateObject("ADODB.Recordset");
dataRec.open(sqlZin,dataCon);
i=1;
while(!dataRec.EOF){
  llnGroep[i] = '' + dataRec("inschrijvingsNr");
  i++;
  dataRec.moveNext();
}  
dataRec.close;

// Opstellen van het verzameldocument
// Het deel vooraf

var XMLsamen='';
sqlZin = "select xmlTekst from fr_XSLoverzicht as o " +
	        "left join fr_XMLoverzicht as x " +
	        "on o.overzichtsNr = x.overzichtsNr " +
		        "and o.aard = x.aard " +
		          "and o.periode=x.periode " +
		            "and o.jaar=x.jaar " +
          " where o.aard='" + aard +
	          "' and o.periode='" + periode +
	            "' and o.jaar='" + jaar + 
		          "' and x.llnGroep='" + groep +
			        "' and o.formaat='" + formaat +
				      "' and o.overzichtsnaam='" + overzichtsnaam + "'";
			
dataRec.open(sqlZin,dataCon);
if (!dataRec.EOF){
  XMLsamen = dataRec("xmlTekst");
}
dataRec.close;

// Gegevens van de leerlingen
voerUitDBank(openRapport,"dbo.fr_voorRekenwerk '" 
						+ aard + "','" + periode + "'")
	
for(i=0;i<llnGroep.length;i++){

  if (huidig==1){
    voerUitDBank(openRapport,"dbo.fr_rekenwerk '" + llnGroep[i] + "','" 
						+ aard + "','" + periode + "','" + jaar + "'");
    voerUitDBank(openRapport,"dbo.fr_maakXML '" + llnGroep[i] + "','" 
						+ aard + "','" + periode + "','" + jaar + "',0");								
	}
	
  sqlZin="select xmlTekst from fr_XML " +
           " where aard='" + aard +
	           "' and periode='" + periode +
	             "' and jaar='" + jaar +
		             "' and inschrijvingsNr='" + llnGroep[i] + "'";
	dataRec.open(sqlZin,dataCon);
  if (!dataRec.EOF){
    XMLsamen = XMLsamen + dataRec("xmlTekst");
  }
  dataRec.close;
}

// Het XML-eindproduct
  XMLsamen ="<?xml version='1.0' encoding='ISO-8859-1'?>" 
    + "<overzichtsblad>" 
      + XMLsamen.replace(/<\?.*\?>/gi ,'')
        + "</overzichtsblad>";
  Response.ContentType='text/xml';    
  Response.write(XMLsamen);  

%>
